﻿Imports System.Data

Imports com.auo.flower.remote
' *** using com.auo.flower.remote;

Partial Class Default7
    Inherits System.Web.UI.Page

    Protected FormKind As String = "AUO.FORM.87"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        hiDBName.Value = "AUOOAMS"
    End Sub

    Protected Sub btnQuery_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnQuery.Click

        'Dim dt As DataTable
        'Dim astDAO As AssetManage.DAO.AssetDAO = New AssetManage.DAO.AssetDAO("AUOOAMS")
        'dt = astDAO.GetReplyStatistics("1", "0", "", "2011/8/1", "2011/8/31", "0")
        gvMain.Visible = True
        ' gvMain.DataSource = dt
        gvMain.DataBind()

    End Sub

    Protected Sub btnExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcel.Click

    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim Qryhelper As IRemotingFormQueryHelper = DirectCast(RemotingHelperCreator.CreateInstance(GetType(IRemotingFormQueryHelper)), IRemotingFormQueryHelper)
        Dim status As String = Qryhelper.getFormStatus(FormKind, 32).FORM_STATUS
        If status.ToLower.Trim <> "approving" Then

        End If


    End Sub
End Class
